Source: "' Name: BlurbTextTool\n' \n' Headline: Makes label blurbs with leader, outline, and shadow with text you enter\n' using the text tool\n' \n' Self:\n' \n' Returns:\n' \n' Description: This script can either be used in the layout or view document GUIs as\n' a tool. Use this script as the Apply Event Use the Symbolwin.DisplayFontPanel script \n' as the click event. When using this tool, click on the feature you want to make a \n' label for and drag in the direction you want your descriptive text to be pla
ced. The\n' text tool will be opened and you can enter your text. Additionally, you may define\n' your text, foreground, and background colors by pressing and holding down the Shift\n' key while you click and drag; you will be prompted via a series of messageboxes as to\n' which colors to use. \n' \n' The label that is returned is a graphic group. You may select this group and then use\n' the symbol window to change its colors. Foreground only changes the foreground color, \n' background only changes th
e background color, the outline changes the outline color, and\n' text changes the text color.\n' \n' Topics: Views, Layouts, Symbols, Graphics\n' \n' Search Keys: Labeling, Text\n' \n' Requires: There must be a view or layout document active.\n' \n' History: ESRI ArcView 3.0\n\ncbox=NIL\ntheLayout = av.GetActiveDoc\n\nif (theLayout.GetGraphics.EditText.Not) then\n\n 'do it slightly differently if using a view document.\n\n if (theLayout.Is(Layout)) then\n ul = theLayout.GetDisplay.ReturnUserLine\n elseif (the
Layout.Is(View)) then\n ul = theLayout.ReturnUserLine\n end\n if (ul.IsNull) then return nil end\n \n 'Test if shift is down, if it is then use custom colors \n if (System.IsShiftKeyDown) then\n shiftcheck=TRUE\n else\n shiftcheck=FALSE\n end\n \n pt1 = ul.ReturnStart\n pt2 = ul.ReturnEnd\n t = GraphicText.Make(\"\", pt2)\n t.SetDisplay(theLayout.GetDisplay)\n theLayout.GetDisplay.HookUpSymbol(t.GetSymbol)\n theLayout.GetGraphics.UnselectAll\n t.SetSelected(TRUE)\n \n if ((t.EditText).not) then return
nil end \n if (t.GetText.Count < 1) then return nil end\n \n dg = Color.Make\n dg.SetRGBList({100,100,100}) 'This is the gray for the default background\n bgbc = dg\n fgbc = Color.GetWhite\n tc = Color.GetBlack\n \n if (shiftcheck) then\n ColorDict = Dictionary.Make(10)\n ColorDict.Add(\"White\",{255,255,255})\n ColorDict.Add(\"Black\",{0,0,0})\n ColorDict.Add(\"Red\",{255,0,0})\n ColorDict.Add(\"Yellow\",{255,255,0})\n ColorDict.Add(\"Green\",{0,255,0})\n ColorDict.Add(\"Blue\",{0,0,255})\n ColorDi
ct.Add(\"Purple\",{255,0,255})\n ColorDict.Add(\"Cyan\",{0,255,255})\n ColorDict.Add(\"Gray\",{100,100,100})\n colorDict.add(\"Pale Yellow\",{252,252,203})\n \n 'Make a List of the color names\n \n cs={\"Black\",\"White\",\"Gray\",\"Red\",\"Green\",\"Blue\",\"Cyan\",\"Yellow\",\"Pale Yellow\",\"Purple\"}\n \n 'Get the text color\n \n tcs = Msgbox.ChoiceAsString(cs,\"Choose a Text Color\",\"Text Color\")\n \n if (tcs=NIL) then return nil end\n \n 'Reorder selection to make more sense here\n \n cs={\"Pale Ye
llow\",\"White\",\"Black\",\"Gray\",\"Red\",\"Green\",\"Blue\",\"Cyan\",\"Yellow\",\"Purple\"}\n \n 'Get the foreground color\n \n fgs = Msgbox.ChoiceAsString(cs,\"Choose a Box Color\",\"Text Color\")\n \n if (fgs=NIL) then return nil end\n \n 'Reorder selection to make more sense here\n \n cs={\"Gray\",\"White\",\"Black\",\"Red\",\"Green\",\"Blue\",\"Cyan\",\"Yellow\",\"Pale Yellow\",\"Purple\"}\n \n 'Get the shading color\n \n bgs = Msgbox.ChoiceAsString(cs,\"Choose a Shade Color\",\"Text Color\")\n \n if (bgs=NIL) then
return nil end\n \n bgbc = Color.Make\n fgbc = Color.Make\n tc = Color.Make\n \n 'Make the colors\n \n bgbc.SetRGBList(ColorDict.Get(bgs))\n fgbc.SetRGBList(ColorDict.Get(fgs))\n tc.SetRGBList(ColorDict.Get(tcs))\n end\n \n 'Determine which side of leader to position box\n \n if ((pt1.GetX <= pt2.GetX) and (pt1.GetY <= pt2.GetY)) then \n z=t.getsymbol\n z.SetColor(tc)\n t.SetSymbol(z)\n theLayout.GetGraphics.AddName(t)\n bb = t.GetBounds.Clone\n bo_x = bb.ReturnOrigin.GetX
\n bo_y = bb.ReturnOrigin.GetY\n bw = ((bb.GetWidth) * 1.08)\n bh = ((bb.GetHeight) * 1.1)\n boxoriginx = bo_x - (bw / 10)\n boxoriginy = bo_y - (bh / 5)\n 'Where to place the leader...\n if ((pt1.GetY >= (pt2.GetY - bh)) and (pt1.GetY <= (pt2.GetY + bh))) then\n llo = (boxoriginx@(boxoriginy + (bh*0.31)))\n o = (boxoriginx@boxoriginy)\n ul = (boxoriginx@(boxoriginy + bh))\n ur = ((boxoriginx + bw)@(boxoriginy + bh))\n lr = ((boxoriginx + bw)@boxoriginy)\n rlo = (boxori
hics.Add(cboxgs) 'foreground\n\n'Position the graphics and then group them\n\nbbox.SetSelected(false)\ncboxgs.SetSelected(false)\nt.SetSelected(true)\ntheLayout.GetGraphics.MoveSelectedToFront\nchangebox.setselected(true) 'background\ncboxgs.SetSelected(true) 'foreground\ntheLayout.GetGraphics.GroupSelected\ntheLayout.GetGraphics.GetSelected.Get(0).Invalidate\ntheLayout.GetGraphics.UnselectAll\n\n\n\n\n\n\n\n\n\n"
FontSize: 1
)
(DocWin.41345
Owner: 41344
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.41346
)
(DocAct.41347
Doc: 41344
)
(SEd.41348
Name: "boxlabel"
CreationDate: "Friday, March 19, 1999 12:45:20"
GUIName: "Script"
Win: 41349
CSMgr: 41350
DocExts: 41351
Source: "' Name: ShadowBoxTextTool\n' \n' Headline: Makes a label with an outline and shadow using text you enter\n' with the text tool\n' \n' Self:\n' \n' Returns:\n' \n' Description: This script can either be used in the layout or view document GUIs as\n' a tool. Use this script as the Apply Event Use the Symbolwin.DisplayFontPanel script \n' as the click event. When using this tool, click where you want to make a label. The\n' text tool will be opened and you can enter your text. Additionally, you may defi
ne\n' your text, foreground, and background colors by pressing and holding down the Shift\n' key while you click and drag; you will be prompted via a series of messageboxes as to\n' which colors to use. \n' \n' The label that is returned is a graphic group. You may select this group and then use\n' the symbol window to change its colors. Foreground only changes the foreground color, \n' background only changes the background color, the outline changes the outline color, and\n' text changes the text color.
\n' \n' Topics: Views, Layouts, Symbols, Graphics\n' \n' Search Keys: Labeling, Text\n' \n' Requires: There must be a view or layout document active.\n' \n' History: ESRI ArcView 3.0\n' \nagrey={100,100,100}\n\ntheDoc = av.GetActiveDoc\ncolors = {\"Pale Yellow\",\"White\",\"Black\",\"Red\",\"Green\",\"Blue\",\"Orange\",\"Yellow\",\"Cyan\",\"Purple\"}\ncrgblists = {{252,252,203},{255,255,255},{0,0,0},{255,195,195},{195,255,195},{201,195,255},{255,199,174},{255,251,195},{195,252,255},{250,195,255}}\n\ncolors2 = {\"Gray\",\"Pale Yellow\",
ext color:\",\"Boxed Text Tool\")\n if (textcolorname = nil) then return nil end\n fgc = Msgbox.ChoiceAsString(colors,\"Choose the box color:\",\"Boxed Text Tool\")\n if (fgc = nil) then return nil end\n isOutlined=Msgbox.YesNoCancel(\"Do you want an outline on the box?\",\"Boxed Text Tool\",true)\n if (IsOutlined = nil) then return nil end \n IsShadowed = Msgbox.YesNoCancel(\"Add a Shadow to the box?\",\"Boxed Text Tool\",true)\n if (IsShadowed = nil) then return nil end\n fgc2=\"Black\"\n
if (isShadowed=TRUE) then\n fgc2= Msgbox.ChoiceAsString(colors2,\"Choose the shadow color:\",\"Boxed Text Tool\")\n if (fgc2 = nil) then return nil end \n end\n else\n fgc=\"White\"\n fgc2=\"Gray\"\n textcolorname=\"Black\"\n isoutlined=TRUE\n isshadowed=TRUE\n end\n\n fgrgbi = colors.FindByValue(fgc)\n fgcolor = Color.Make\n fgcolor.SetRGBList(crgblists.Get(fgrgbi))\n fgrgbi2 = colors2.FindByValue(fgc2)\n fgcolor2 = Color.Make\n fgcolor2.SetRGBList(crgblists2
TRUE)\n end \n boxgs.SetSelected(TRUE)\n theDoc.GetGraphics.GroupSelected\n end\nend\n\ntheDoc.getgraphics.unselectall\n\n\n\n"
FontSize: 1
)
(DocWin.41349
Owner: 41348
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.41350
)
(DocAct.41351
Doc: 41348
)
(View.41352
Name: "Contents"
CreationDate: "Friday, July 16, 1999 10:47:15"
GUIName: "National View"
Win: 41353
CSMgr: 41354
DocExts: 41356
DocExts: 41357
Graphics: 41358
Dpy: 41419
TOCFrozen: 1
CoordPrecision: 2
)
(DocWin.41353
Owner: 41352
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.41354
Client: 41355
)
(CSClient.41355
Client: 41356
ReqName: "ClientNfy"
)
(PanMgr.41356
Doc: 41352
)
(DocAct.41357
Doc: 41352
)
(GList.41358
Child: 41359
Child: 41370
Child: 41381
Child: 41392
Child: 41403
Child: 41408
Dpy: 41419
FormatNumb: 41424
)
(GText.41359
Bounds: 41360
Sym: 41361
Text: "Note: Please See Help Document and Readme File Before Continuing\n\nINTRODUCTION\nUNITED STATES MAP VIEW\nNORTHERN ROCKY MOUNTAINS AND GREAT PLAINS \n REGION SHOWING ASSESSED AND SUMMARY BASINS\nPOWDER RIVER BASIN VIEW\n SHERIDAN COALFIELD VIEW\n GILLETTE COALFIELD VIEW\n POWDER RIVER BASIN, WYODAK-ANDERSON\n COAL ZONE VIEW\n DECKER COALFIELD VIEW\n ASHLAND COALFIELD VIEW\n COLSTRIP COALFIELD VIEW\nWILLISTON BASIN VIEW\n BOWMAN-DIC
KINSON COALFIELD, HARMON COAL \n ZONE VIEW \n BOWMAN-DICKINSON COALFIELD, HANSEN COAL\n ZONE VIEW\n BEULAH COALFIELD, BEULAH-ZAP \n COAL ZONE \n CENTER-FALKIRK COALFIELD, HAGEL \n COAL ZONE"
Spacing: 1.00000000000000
)
(RectD.41360
Left: -0.29405272072072
Top: 0.80015807806664
Right: 0.52497349650774
Bottom: 0.04210564360971
)
(TxSym.41361
Color: 41362
Font: 41363
BgColor: 41368
OlColor: 41369
Size: 11.00000000000000
)
(TClr.41362
)
(NFont.41363
Family: 41364
Name: 41365
Style: 41366
CommonFamily: 41367
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.41364
S: "Times New Roman"
)
(AVStr.41365
S: "Times New Roman"
)
(AVStr.41366
S: "Normal"
)
(AVStr.41367
S: "Times"
)
(TClr.41368
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.41369
Red: 0xff
Green: 0xff
Blue: 0xff
)
(GText.41370
Bounds: 41371
Sym: 41372
Text: "GREATER GREEN RIVER BASIN VIEW\n POINT OF ROCKS-BLACK BUTTE COALFIELD VIEW\nHANNA AND CARBON BASINS VIEW\n FERRIS COALFIELD, FERRIS 23 COAL ZONE VIEW\n FERRIS COALFIELD, FERRIS 25 COAL ZONE VIEW\n FERRIS COALFIELD, FERRIS 31 COAL ZONE VIEW\n FERRIS COALFIELD, FERRIS 51 COAL ZONE VIEW\n FERRIS COALFIELD, FERRIS 65 COAL ZONE VIEW\n HANNA COALFIELD, HANNA 77 COAL ZONE VIEW\n HANNA COALFIELD, HANNA 78 COAL ZONE VIEW\n HANNA COALFIELD, HANNA
79 COAL ZONE VIEW\n HANNA COALFIELD, HANNA 81 COAL ZONE VIEW\n SOUTH CARBON COALFIELD VIEW"
Spacing: 1.00000000000000
)
(RectD.41371
Left: 0.56211243711244
Top: 0.73081947163987
Right: 1.32543827980907
Bottom: 0.30235505216421
)
(TxSym.41372
Color: 41373
Font: 41374
BgColor: 41379
OlColor: 41380
Size: 11.00000000000000
)
(TClr.41373
)
(NFont.41374
Family: 41375
Name: 41376
Style: 41377
CommonFamily: 41378
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.41375
S: "Times New Roman"
)
(AVStr.41376
S: "Times New Roman"
)
(AVStr.41377
S: "Normal"
)
(AVStr.41378
S: "Times"
)
(TClr.41379
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.41380
Red: 0xff
Green: 0xff
Blue: 0xff
)
(GText.41381
Bounds: 41382
Sym: 41383
Text: "Parts I, II, III, IV, V--See Disc 1--Reports\nPart VI--Disc2--Interactive Maps"
Spacing: 1.00000000000000
)
(RectD.41382
Left: -0.29405272072072
Top: 0.87898066605932
Right: 0.18681619313696
Bottom: 0.81306306306307
)
(TxSym.41383
Color: 41384
Font: 41385
BgColor: 41390
OlColor: 41391
Size: 11.00000000000000
)
(TClr.41384
)
(NFont.41385
Family: 41386
Name: 41387
Style: 41388
CommonFamily: 41389
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.41386
S: "Times New Roman"
)
(AVStr.41387
S: "Times New Roman"
)
(AVStr.41388
S: "Normal"
)
(AVStr.41389
S: "Times"
)
(TClr.41390
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.41391
Red: 0xff
Green: 0xff
Blue: 0xff
)
(GText.41392
Bounds: 41393
Sym: 41394
Flags: 0x02
Text: "Disc 2--Interactive Maps Contents"
Spacing: 1.00000000000000
)
(RectD.41393
Left: -0.29405272072072
Top: 0.98338900698451
Right: 0.25504091223808
Bottom: 0.94144144144144
)
(TxSym.41394
Color: 41395
Font: 41396
BgColor: 41401
OlColor: 41402
Size: 14.00000000000000
)
(TClr.41395
)
(NFont.41396
Family: 41397
Name: 41398
Style: 41399
CommonFamily: 41400
Bold: 1
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.41397
S: "Times New Roman"
)
(AVStr.41398
S: "Times New Roman Bold"
)
(AVStr.41399
S: "Bold"
)
(AVStr.41400
S: "Times"
)
(TClr.41401
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.41402
Red: 0xff
Green: 0xff
Blue: 0xff
)
(GShape.41403
Bounds: 41404
Sym: 41405
Flags: 0x02
Shape: 41407
)
(RectD.41404
Left: -0.28954821621622
Top: 0.92792792792793
Right: 0.30955088288288
Bottom: 0.92792792792793
)
(BLnSym.41405
Color: 41406
Width: 1.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
)
(TClr.41406
)
(LineD.41407
X1: -0.28954821621622
Y1: 0.92792792792793
X2: 0.30955088288288
Y2: 0.92792792792793
)
(GText.41408
Bounds: 41409
Sym: 41410
Text: "Contents"
Spacing: 1.00000000000000
)
(RectD.41409
Left: -0.29405272072072
Top: 0.92986938566827
Right: -0.15059204656342
Bottom: 0.88792182012520
)
(TxSym.41410
Color: 41411
Font: 41412
BgColor: 41417
OlColor: 41418
Size: 14.00000000000000
)
(TClr.41411
)
(NFont.41412
Family: 41413
Name: 41414
Style: 41415
CommonFamily: 41416
Bold: 1
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.41413
S: "Times New Roman"
)
(AVStr.41414
S: "Times New Roman Bold"
)
(AVStr.41415
S: "Bold"
)
(AVStr.41416
S: "Times"
)
(TClr.41417
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.41418
Red: 0xff
Green: 0xff
Blue: 0xff
)
(MapDpy.41419
Left: -0.04449152542373
Bottom: -0.00847457627119
Top: 0.99152542372881
Right: 0.95550847457627
Scale: 41420
FrameTop: 4.63541666666667
FrameRight: 8.28125000000000
PageDpy: 41421
FitToPage: 1
MouseLoc: 41423
)
(Numb.41420
N: 4.63541666666667
)
(PageDpy.41421
Top: 4.63541666666667
Right: 8.28125000000000
ReportUnits: 1
Units: 1
Scale: 41422
ZoomRight: 8.28125000000000
ZoomTop: 4.63541666666667
GridSpacingX: 0.25000000000000
GridSpacingY: 0.25000000000000
)
(Numb.41422
N: 0.12075471698113
)
(PointD.41423
x: -0.02733466267863
y: 0.98335548908829
)
(Numb.41424
)
(View.41425
Name: "Credits"
CreationDate: "Tuesday, July 20, 1999 03:01:29"
GUIName: "National View"
Win: 41426
CSMgr: 41427
DocExts: 41429
DocExts: 41430
Graphics: 41431
Dpy: 41470
CoordPrecision: 2
)
(DocWin.41426
Owner: 41425
X: -4
Y: -4
W: 1034
H: 643
)
(CSMgr.41427
Client: 41428
)
(CSClient.41428
Client: 41429
ReqName: "ClientNfy"
)
(PanMgr.41429
Doc: 41425
)
(DocAct.41430
Doc: 41425
)
(GList.41431
Child: 41432
Child: 41443
Child: 41448
Child: 41459
Dpy: 41470
FormatNumb: 41475
)
(GText.41432
Bounds: 41433
Sym: 41434
Text: "Disc 2--Interactive Maps Credits"
Spacing: 1.00000000000000
)
(RectD.41433
Left: -0.24596323423423
Top: 0.93733974616328
Right: 0.13530038232350
Bottom: 0.90683865683866
)
(TxSym.41434
Color: 41435
Font: 41436
BgColor: 41441
OlColor: 41442
Size: 14.00000000000000
)
(TClr.41435
)
(NFont.41436
Family: 41437
Name: 41438
Style: 41439
CommonFamily: 41440
Bold: 1
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.41437
S: "Times New Roman"
)
(AVStr.41438
S: "Times New Roman Bold"
)
(AVStr.41439
S: "Bold"
)
(AVStr.41440
S: "Times"
)
(TClr.41441
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.41442
Red: 0xff
Green: 0xff
Blue: 0xff
)
(GShape.41443
Bounds: 41444
Sym: 41445
Shape: 41447
)
(RectD.41444
Left: -0.24596323423423
Top: 0.88501813501813
Right: 0.58304109477010
Bottom: 0.88501813501813
)
(BLnSym.41445
Color: 41446
Width: 1.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
Pattern: 0.00000000000000
)
(TClr.41446
)
(LineD.41447
X1: -0.24596323423423
Y1: 0.88501813501813
X2: 0.58304109477010
Y2: 0.88501813501813
)
(GText.41448
Bounds: 41449
Sym: 41450
Text: "TECHNICAL DEVELOPMENT By G.L. Gunther\n\nTHEMATIC ORGANIZATION By R.M. Flores and G.L. Gunther\n\nGIS MANAGEMENT AND DEVELOPMENT By G.L. Gunther, M.E. Ellis, G.S. Rossi, S.A. Kinney, T.T. Taber, \n S.B. Roberts, L.R. Bader, Damon Sather, and Paul Heggen\n\nGEOLOGY By R.M. Flores and S.B. Roberts\n\nCOAL QUALITY AND GEOCHEMISTRY By G.D. Stricker and M.E. Ellis\n\nSTRATIGRAPHIC DATABASE MANAGEMENT By A.M. Ochs, R.M. Flores, and S.B. Roberts\n\nCOAL RESOURCES By M.E. Ellis, G.L. Gunther, and S.B. Roberts\n\nMETA
DATA By G.S. Rossi, S.A. Kinney, M.E. Ellis, Damon Sather, S.B. Roberts, Paul Heggen, \n R.M. Flores, and Gregory Erhart\n\nTECHNICAL AND CONTENT REVIEW By F.C. Brunstein, K.L. Varnes, Mitchell Henry, R.W. Stanton,\n P.D. Warwick, H.J. Gluskoter, Jason Willett, Claire Aubourg, Leslie Ruppert, Susan Tewalt,\n Philip Freeman, Linda Bragg, John Tully, Steve Podwysocki, Woody Wallace, and Jennifer Jenkins"
Spacing: 1.00000000000000
)
(RectD.41449
Left: -0.24596323423423
Top: 0.64542311601135
Right: 0.74499537143026
Bottom: 0.14215514215514
)
(TxSym.41450
Color: 41451
Font: 41452
BgColor: 41457
OlColor: 41458
Size: 11.00000000000000
)
(TClr.41451
)
(NFont.41452
Family: 41453
Name: 41454
Style: 41455
CommonFamily: 41456
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.41453
S: "Times New Roman"
)
(AVStr.41454
S: "Times New Roman"
)
(AVStr.41455
S: "Normal"
)
(AVStr.41456
S: "Times"
)
(TClr.41457
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.41458
Red: 0xff
Green: 0xff
Blue: 0xff
)
(GText.41459
Bounds: 41460
Sym: 41461
Text: "Credits"
Spacing: 1.00000000000000
)
(RectD.41460
Left: -0.24596323423423
Top: 0.87284343166696
Right: -0.15964515144556
Bottom: 0.84234234234234
)
(TxSym.41461
Color: 41462
Font: 41463
BgColor: 41468
OlColor: 41469
Size: 14.00000000000000
)
(TClr.41462
)
(NFont.41463
Family: 41464
Name: 41465
Style: 41466
CommonFamily: 41467
Bold: 1
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.41464
S: "Times New Roman"
)
(AVStr.41465
S: "Times New Roman Bold"
)
(AVStr.41466
S: "Bold"
)
(AVStr.41467
S: "Times"
)
(TClr.41468
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.41469
Red: 0xff
Green: 0xff
Blue: 0xff
)
(MapDpy.41470
Top: 1.00000000000000
Right: 1.00000000000000
Scale: 41471
FrameTop: 6.37500000000000
FrameRight: 10.61458333333333
PageDpy: 41472
FitToPage: 1
MouseLoc: 41474
)
(Numb.41471
N: 6.37500000000000
)
(PageDpy.41472
Top: 6.37500000000000
Right: 10.61458333333333
ReportUnits: 1
Units: 1
Scale: 41473
ZoomRight: 10.61458333333333
ZoomTop: 6.37500000000000
GridSpacingX: 0.25000000000000
GridSpacingY: 0.25000000000000
)
(Numb.41473
N: 0.09421000981354
)
(PointD.41474
x: -0.16301843317972
y: 1.00000000000000
)
(Numb.41475
)
(SEd.41476
Name: "Forward"
CreationDate: "Friday, July 16, 1999 10:37:36"
GUIName: "Script"
Win: 41477
CSMgr: 41478
DocExts: 41479
Source: "theView = av.GetActiveDoc\n\nif (theView.AsString = \"Title Page\") then\n theNewView = av.GetProject.FindDoc(\"Credits\")\nelse if (theView.AsString = \"Credits\") then\n theNewView = av.GetProject.FindDoc(\"Contents\")\nelse if (theView.AsString = \"Contents\") then\n theNewView = av.GetProject.FindDoc(\"Introduction\")\nelse if (theView.AsString = \"Introduction\") then\n theNewView = av.GetProject.FindDoc(\"United States Map View\")\nelse if (theView.AsString = \"United States Map View\") then\n theNewView = av.GetProject.Find
Doc(\"Northern Rocky Mountains and Great Plains Region\")\nend\nend\nend\nend\nend\ntheNewView.GetWin.Open\ntheNewView.GetWin.Maximize\ntheView.GetWin.Close\n"
FontSize: 1
)
(DocWin.41477
Owner: 41476
X: -4
Y: -4
W: 810
H: 494
)
(CSMgr.41478
)
(DocAct.41479
Doc: 41476
)
(View.41480
Name: "Greater Green River Basin"
CreationDate: "Tuesday, September 29, 1998 02:43:46"
Text: " INTRODUCTION\n\nThe Paleocene Fort Union Formation in the northern Rocky Mountains \nand Great Plains region contains 18 coal beds and zones that yielded more than \n38 percent (383 million short tons) of the greater than 1 billion short tons \nproduced in the United States in 1998. These Fort Union coal beds and zones \nare thick, clean, and compliant (low ash and low sulfur). They are targets \nfor continued development and expanded utilization in the next few decad
es. \nRelatively low concentrations of trace elements of environmental concern named \nin the Amendments to the 1990 Clean Air Act in this coal make it a valuable \nresource for decades to come. The coal of the Fort Union Formation is in \ndemand by as many as 144 electric power generation plants in 25 States of \nthe conterminous U.S. Fort Union coal deserves recognition and assessment \nbecause of its unique characteristics and its contribution to economic and industrial \ngrowth. Selected Fort Union coal be
ds and zones in this region were \nassessed by a group of multidisciplinary scientists, technicians, and computer \nspecialists from 1994 to 1999 as a part of the U.S. Geological Survey's National \nCoal Resource Assessment project. \n\nThe Interactive Maps on disc 2 cover the Powder River, Williston, Greater\nGreen River, and Hanna-Carbon Basins only. Interactive views of the\nbasins, coalfields, and cross sections, as well as metadata for the views \nare provided. Users are urged to read the readme file and H
elp Document\nto learn how to navigate within and utilize this application."
Spacing: 1.00000000000000
)
(RectD.44096
Left: -0.01689189189188
Top: 0.95075918615245
Right: 1.03946765866992
Bottom: 0.08783783783784
)
(TxSym.44097
Color: 44098
Font: 44099
BgColor: 44104
OlColor: 44105
Size: 12.00000000000000
)
(TClr.44098
)
(NFont.44099
Family: 44100
Name: 44101
Style: 44102
CommonFamily: 44103
Serif: 1
Weight: 1
Wideness: 1
)
(AVStr.44100
S: "Times New Roman"
)
(AVStr.44101
S: "Times New Roman"
)
(AVStr.44102
S: "Normal"
)
(AVStr.44103
S: "Times"
)
(TClr.44104
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.44105
Red: 0xff
Green: 0xff
Blue: 0xff
)
(MapDpy.44106
Left: -0.02317147656131
Bottom: 0.00307298824248
Top: 1.00307298824248
Right: 0.97682852343869
Scale: 44107
FrameTop: 4.63541666666667
FrameRight: 8.28125000000000
PageDpy: 44108
FitToPage: 1
MouseLoc: 44110
)
(Numb.44107
N: 4.63541666666667
)
(PageDpy.44108
Top: 4.63541666666667
Right: 8.28125000000000
ReportUnits: 1
Units: 1
Scale: 44109
ZoomRight: 8.28125000000000
ZoomTop: 4.63541666666667
GridSpacingX: 0.25000000000000
GridSpacingY: 0.25000000000000
)
(Numb.44109
N: 0.12075471698113
)
(PointD.44110
x: 0.59732401893419
y: 1.00082073599023
)
(Numb.44111
)
(SEd.44112
Name: "junkcoord"
CreationDate: "Friday, May 21, 1999 09:59:23"
GUIName: "Script"
Win: 44113
CSMgr: 44114
DocExts: 44115
Source: "' Name: View.AddXYCoordToFTab\n' \n' Title: Adds X and Y coordinates of features to Attribute Table\n'\n' Topics: GeoData\n'\n' Description: Adds two new fields, named X-coord and Y-coord, to the table\n' of the first active theme in the TOC and fills the respective fields with\n' the X,Y coordinates of the selected points (or all points if no selection \n' is defined) in a point theme. If instead the active theme is a polygon \n' theme, then the X,Y coordinates of the polygon centroid are calculated. If \n' the t
heme is projected, the output coordinates will also be projected.\n'\n' Requires: An active point or polygon theme. This script does minimal\n' error checking and assumes that there is an active theme. \n'\n' Self: \n'\n' Returns: \n\ntheView = av.GetActiveDoc\n'must be global to work in Calc exp below\n_theProjection = theView.GetProjection \nproject_flag = _theProjection.IsNull.Not 'true if projected\ntheTheme = theView.GetActiveThemes.Get(0)\n\n'Check if point or polygon theme\nif (((theTheme.GetSrcName.GetSubName =
\"point\") or \n (theTheme.GetSrcName.GetSubName = \"polygon\")).Not) then\n MsgBox.Info(\"Active theme must be polygon or point theme\",\"\")\n exit\nend \n\n'get the theme table and current edit state\ntheFTab = theTheme.GetFTab\ntheFields = theFTab.GetFields\nedit_state = theFTab.IsEditable\n\n'make sure table is editable and that fields can be added\nif (theFtab.CanEdit) then\n theFTab.SetEditable(true)\n if ((theFTab.CanAddFields).Not) then\n MsgBox.Info(\"Can't add fields to the table.\"+NL+\"Check write permission
.\",\n \"Can't add X,Y coordinates\")\n exit\n end\nelse\n MsgBox.Info(\"Can't modify the feature table.\"+NL+\n \"Check write permission.\",\"Can't add X,Y coordinates\")\n exit\nend\n\n'Check if fields named \"X-coord\" and Y-coord\" exist\nx_exists = (theFTab.FindField(\"X-coord\") = NIL).Not\ny_exists = (theFtab.FindField(\"Y-coord\") = NIL).Not\n\nif (x_exists or y_exists) then \n if (MsgBox.YesNo(\"Overwrite existing fields?\",\n \"X-coord, Y-coord fields already exist\", false)) then\n 'if ok to overwrite, delete the fiel
ds as they may not be defined\n 'as required by this script (eg., created from another script).\n if (x_exists) then\n theFTab.RemoveFields({theFTab.FindField(\"X-coord\")})\n end\n if (y_exists) then\n theFTab.RemoveFields({theFTab.FindField(\"Y-coord\")})\n end\n else\n exit\n end 'if (MsgBox...)\nend 'if\n\nx = Field.Make (\"X-coord\",#FIELD_DECIMAL,18,5)\ny = Field.Make (\"Y-coord\",#FIELD_DECIMAL,18,5)\ntheFTab.AddFields({x,y})\n\n'Get point coordinates or polygon centroid coordinates\nif (theThe
Query: "( [Name] = \"Hardin\") or ([Name] = \"Sheridan\") or ([Name] = \"Buffalo\") or ([Name] = \"Gillette\") or ([Name] = \"Spearfish\") or ([Name] = \"Casper\") or ([Name] = \"Glenrock\") or ([Name] = \"Douglas\" )"
CreationDate: "Wednesday, August 04, 1999 12:22:35 AM"
GUIName: "Script"
Win: 47284
CSMgr: 47285
DocExts: 47286
Source: "theProject = av.GetProject\n\nif (System.IsControlKeyDown) then\n if (nil <> theProject) then \n if (theProject.IsModified) then\n res = MsgBox.SaveChanges(\"Do you want to save changes to \" \n + theProject.GetName + \"?\", \"ArcView\", true)\n if (nil = res) then return nil end\n if (res) then\n av.Run(\"Project.Save\", nil)\n if (theProject.IsModified) then return nil end\n end\n end\n theProject.Close\n end\n av.quit\nelse\n res = MsgBox.YesNo(\"Do you re
ally wish to exit \" + theProject.GetName + \"?\", \"\", true)\n if (res) then\n av.quit\n end\nend"
CreationDate: "Tuesday, January 12, 1999 01:58:03"
GUIName: "Script"
Win: 47296
CSMgr: 47297
DocExts: 47298
Source: "theList = {\"Edit\", \"Toggle\"}\ntheChoice = msgbox.choiceAsString(theList, \"test\", \"test\")\ntheView = av.GetActiveDoc\ntheThemes = theView.GetActiveThemes\ntheScript = \"View.\" + theChoice + \"Legend\" \nfor each t in theThemes\n t.setlegendeditorscript(theScript)\nend"
)
(DocWin.47296
Owner: 47295
X: -4
Y: -4
W: 1290
H: 899
)
(CSMgr.47297
)
(DocAct.47298
Doc: 47295
)
(SEd.47299
Name: "Script2"
CreationDate: "Tuesday, January 12, 1999 02:04:21"
GUIName: "Script"
Win: 47300
CSMgr: 47301
DocExts: 47302
Source: "theView = av.GetActiveDoc\ntheThemes = theView.GetActiveThemes\nfor each t in theThemes\n t.editlegend\n \n \n \n theView = av.GetActiveDoc\nfor each t in theView.GetActiveThemes\n t.SetLegendVisible(not (t.IsLegendVisible))\nend\nend"
Text: "Northern Rocky Mountains and Great \nPlains Assessment Region"
Alignment: 0x01
Spacing: 1.00000000000000
)
(RectD.47373
Left: 6.05036655888940
Top: -1.29239745126482
Right: 9.52135672150965
Bottom: -1.74229896294599
)
(TxSym.47374
Color: 47375
Scale: 47376
Font: 47377
BgColor: 47382
OlColor: 47383
Size: 16.19645442052222
)
(TClr.47375
)
(Numb.47376
N: 1.12077260254446
)
(NFont.47377
Family: 47378
Name: 47379
Style: 47380
CommonFamily: 47381
Weight: 1
Wideness: 1
)
(AVStr.47378
S: "Arial"
)
(AVStr.47379
S: "Arial"
)
(AVStr.47380
S: "Normal"
)
(AVStr.47381
S: "Helvetica"
)
(TClr.47382
Red: 0xff
Green: 0xff
Blue: 0xff
)
(TClr.47383
Red: 0xff
Green: 0xff
Blue: 0xff
)
(MapDpy.47384
Left: 1.09633319336285
Bottom: -6.65474143317046
Top: -0.96670089262992
Right: 9.79692853870820
Scale: 47376
FrameTop: 6.37500000000000
FrameRight: 10.61458333333333
PageDpy: 47385
FitToPage: 1
MouseLoc: 47387
)
(PageDpy.47385
Top: 6.37500000000000
Right: 10.61458333333333
ReportUnits: 1
Units: 1
Scale: 47386
ZoomRight: 10.61458333333333
ZoomTop: 6.37500000000000
GridSpacingX: 0.25000000000000
GridSpacingY: 0.25000000000000
)
(Numb.47386
N: 0.09421000981354
)
(PointD.47387
x: 3.47161678945895
y: -0.96670089262992
)
(Numb.47388
)
(FTheme.47389
Name: "Regbox.shp"
Source: 47390
Flags: 0x07
Legend: 47400
Threshold: 47413
View: 47346
GSet: 47414
LegEditScript: "View.EditLegend"
TxPos: 47415
HotField: 47396
HotScript: "Link.Document"
AttrRules: 47416
AttrRules: 47417
)
(ShpSrc.47390
Name: 47391
FTab: 47393
)
(SrcName.47391
FileName: 47392
Name: "regbox.shp"
SubName: "Polygon"
OwnerClass: "ShpSrc"
)
(FN.47392
Path: "reg4avdp/misc/regbox.shp"
)
(FTab.47393
Name: "regbox.dbf"
BTab: 47394
Fields: 47398
Fields: 47395
Fields: 47396
SelBits: 47399
FSrc: 47390
)
(dBASE.47394
Name: "regbox.dbf"
Fields: 47395
Fields: 47396
FileName: 47397
)
(Field.47395
Name: "ID"
Btab: 47394
Alias: "ID"
Type: 9
Order: -1
)
(Field.47396
Name: "link"
Btab: 47394
Alias: "link"
Visible: 1
Type: 4
Order: -1
Pixels: 150
)
(FN.47397
Path: "reg4avdp/misc/regbox.dbf"
)
(Field.47398
Name: "Shape"
Alias: "Shape"
Visible: 1
Type: 19
Order: -1
Pixels: 53
)
(Bitmap.47399
NumBits: 1
Bits: 00000000
)
(Legend.47400
SymType: 0x02
LegType: 0x01
ClassType: 0x03
Symbols: 47401
Class: 47406
StdDevs: 1.00000000000000
NullSym: 47407
NullValues: 47411
StatValues: 47412
Precision: -3
)
(SymList.47401
Child: 47402
)
(BShSym.47402
Color: 47403
Outline: 1
OutlineColor: 47404
OutlineWidth: 0.10000000000000
BgColor: 47405
)
(TClr.47403
Name: "Transparent"
)
(TClr.47404
Name: "Transparent"
)
(TClr.47405
Red: 0xffff
Green: 0xffff
Blue: 0xffff
)
(LClass.47406
IsText: 1
Precision: -3
)
(BShSym.47407
Color: 47408
Outline: 1
OutlineColor: 47409
OutlineWidth: 0.10000000000000
BgColor: 47410
)
(TClr.47408
Name: "Transparent"
)
(TClr.47409
Name: "Transparent"
)
(TClr.47410
Red: 0xffff
Green: 0xffff
Blue: 0xffff
)
(NameDict.47411
)
(NameDict.47412
)
(Thresh.47413
)
(GSet.47414
)
(TxPosPly.47415
HAlign: 3
VAlign: 3
)
(AttrSingle.47416
FTab: 47393
Field: 47395
UnionRule: 1
SplitRule: 1
)
(AttrSingle.47417
FTab: 47393
Field: 47396
UnionRule: 1
SplitRule: 1
)
(ITheme.47418
Name: "National.tif"
Source: 47419
Flags: 0x06
Legend: 47426
Threshold: 47430
View: 47346
GSet: 47431
LegEditScript: "View.EditLegend"
)
(ISrc.47419
Name: 47420
MapBox: 47422
BandStats: 47423
BandStats: 47424
BandStats: 47425
)
(SrcName.47420
FileName: 47421
Name: "national.tif"
OwnerClass: "ISrc"
)
(FN.47421
Path: "reg4avdp/misc/national.tif"
)
(RectD.47422
Left: -0.00166666666667
Top: 0.00166666666667
Right: 11.11166666666667
Bottom: -8.50166666666667
)
(BStat.47423
Max: 255.00000000000000
Mean: 127.50000000000000
StDv: 63.75000000000000
)
(BStat.47424
Max: 255.00000000000000
Mean: 127.50000000000000
StDv: 63.75000000000000
)
(BStat.47425
Max: 255.00000000000000
Mean: 127.50000000000000
StDv: 63.75000000000000
)
(MBILeg.47426
GreenBand: 1
BlueBand: 2
RedLUT: 47427
GreenLUT: 47428
BlueLUT: 47429
)
(ILUTIdn.47427
)
(ILUTIdn.47428
)
(ILUTIdn.47429
)
(Thresh.47430
)
(GSet.47431
)
(SEd.47432
Name: "View.Back"
CreationDate: "Tuesday, June 30, 1998 10:10:21"
GUIName: "Script"
Win: 47433
CSMgr: 47434
DocExts: 47435
Source: "av.GetActiveDoc.GetWin.Close"
FontSize: 1
)
(DocWin.47433
Owner: 47432
X: -4
Y: -4
W: 1034
H: 644
)
(CSMgr.47434
)
(DocAct.47435
Doc: 47432
)
(SEd.47436
Name: "View.BackToFullExt"
CreationDate: "Monday, May 04, 1998 08:44:29"
GUIName: "Script"
Win: 47437
CSMgr: 47438
DocExts: 47439
Source: "' View.BackToFullExt\n\n' Function: Zooms to full extent of the desired theme. \n' The view must have the same name as the theme which determines\n' the full extent\n\n' Developed By: Gregory L. Gunther\n\nCurrentDoc = av.GetActiveDoc\nCurrentDocName = CurrentDoc.AsString\nif (CurrentDocName = \"Powder River Basin\") then\n ExtentRect = Rect.make(-155407.36@5019030.89,542151.60@439942.69) \nelse if (CurrentDocName = \"Powder River Basin, Wyodak-Anderson Coal Zone\") then\n ExtentRect = Rect.make(-192469.84@5035907.49, 393
CreationDate: "Thursday, August 27, 1998 11:31:03"
GUIName: "Script"
Win: 47441
CSMgr: 47442
DocExts: 47443
Source: "theView = av.GetActiveDoc\nresPattern = \"*Spatial Query Layer\".AsPattern\nwellData = \"*Data\".AsPattern\n\nfor each t in theView.GetActiveThemes\n if ((t.AsString = resPattern) or (t.AsString = wellData)) then\n SELF.SetEnabled(TRUE)\n return nil\n end\nend\nSELF.SetEnabled(FALSE)\n"
FontSize: 1
)
(DocWin.47441
Owner: 47440
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47442
)
(DocAct.47443
Doc: 47440
)
(SEd.47444
Name: "View.ClearSelectNew"
CreationDate: "Thursday, July 30, 1998 04:07:36"
GUIName: "Script"
Win: 47445
CSMgr: 47446
DocExts: 47447
Source: "theView = av.GetActiveDoc\ntheActiveThemes = theView.GetActiveThemes\n\nfor each at in theActiveThemes\n resPattern = \"*Spatial Query Layer\".AsPattern\n wellPattern = \"*Data\".AsPattern\n if (at.AsString = resPattern) then\n theChoice = \"Spatial Query Layer\"\n else if (at.AsString = wellPattern) then\n theChoice = \"Data\"\n else \n msgbox.error(\"You Must Activate The 'Well Data' Or 'Spatial Query Layer' Theme\", \"Query Builder Error\")\n exit\n end\n end\nend\n \nif (theChoice
= \"Spatial Query Layer\") then\n resPattern = \"*Spatial Query Layer\".AsPattern\n for each t in theView.GetThemes\n if (t.AsString = resPattern) then\n theTheme = t \n end\n end\n theTheme.SetVisible(FALSE)\nelse if (theChoice = \"Data\") then\n resPattern = \"*Data\".AsPattern\n for each t in theView.GetThemes\n if (t.AsString = resPattern) then\n theTheme = t\n end\n end \n else\n exit\n end\nend\ntheTheme.ClearSelection"
FontSize: 1
)
(DocWin.47445
Owner: 47444
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47446
)
(DocAct.47447
Doc: 47444
)
(SEd.47448
Name: "View.Graticule"
CreationDate: "Tuesday, January 26, 1999 09:39:46"
GUIName: "Script"
Win: 47449
CSMgr: 47450
DocExts: 47451
Source: "' Name: View.Graticule\n'\n' Title: Creates Graticules, Tics, and Labels for a View\n'\n' Topics: Views, Graphics\n'\n' Description: This script offers several options for placing graticules\n' and tics on a View. You may specify the interval between each \n' graticule line or between each tic mark.\n'\n' Requires: The View must be projected.\n'\n' Self: \n'\n' Returns: \n\n\ntheView = av.getactivedoc\ntheGraphics = theView.GetGraphics\n\n' get view projection information\nthisPrj=theView.GetProjection\nif (thisPrj.IsNul
l) then\n MsgBox.Error(\"The view must be projected.\"+NL+\n \"Unable to create graticule.\",\"\")\n return nil\nend\n\ntheChoice = MsgBox.ListAsString({ \n \"Lat-Long Labels Only\", \n \"Lat-Long Graticule with Labels\",\n \"XY Grid with Labels\", \n \"Lat-Long Labels & XY Grid\", \n \"All Graticules and grids\" }, \n \"Select Graticule/Grid Type:\",\"\")\nif (theChoice = \"Lat-Long Labels Only\") then\n doLatLongs = true\n doGraticule = false\n doXYGrid = false\nelseif (theChoice = \"Lat-Long Graticule with Labels\") the
n = xyrect.ReturnOrigin\nxySize = xyrect.ReturnSize\ndOrigin = xyOrigin\ndSize = xyrect.returnsize\n\n\n' This is how to translate a point from map coords to page coords\n'aPt = dOrigin + ( ((p - xyOrigin) / xySize) * dSize)\n \nxMin = xyOrigin.GetX\nyMin = xyOrigin.GetY\nxMax = xMin + xySize.GetX\nyMax = yMin + xySize.GetY\n\nif ( doLatLongs ) then\n 'work out the lat/long graticule \n 'get the lat/long limits of the boundary\n point1=Point.Make(xMin,yMin)\n point2=Point.Make(xMax,yMin)\n point3=Point.Make(xMax,yMax)\n
point4=Point.Make(xMin,yMax)\n point5=Point.Make((xMin+(xMax-xMin)/2),yMin)\n point6=Point.Make(xMax,(yMin+(yMax-yMin)/2))\n point7=Point.Make((xMin+(xMax-xMin)/2),yMax)\n point8=Point.Make(xMin,(yMin+(yMax-yMin)/2))\n 'unproject the limits\n thisPrj.UnProjectPt(point1)\n thisPrj.UnProjectPt(point2)\n thisPrj.UnProjectPt(point3)\n thisPrj.UnProjectPt(point4)\n thisPrj.UnProjectPt(point5)\n thisPrj.UnProjectPt(point6)\n thisPrj.UnProjectPt(point7)\n thisPrj.UnProjectPt(point8)\n 'find the min/max lat/long li
mits based on user input\n ' the limits are the nearest multiple of the graticule spacing\n ' inside of the user rectangle\n minlon=(Point1.GetX)Min(Point4.GetX)Min(Point8.GetX)Max(-180)\n minlat=(Point1.GetY)Min(Point2.GetY)Min(Point5.GetY)Max(-90)\n maxlon=(Point2.GetX)Max(Point3.GetX)Max(Point6.GetX)Min(180)\n maxlat=(Point3.GetY)Max(Point4.GetY)Max(Point7.GetY)Min(90)\n\n minLength = (maxlon-minlon) Min (maxlat-minlat)\n llIntervals = { 60,30,20,10,5,2,1,0.5,0.3333333333,0.25,0.1666666666,\n 0.083333
33333,0.03333333333,0.01666666666 }\n rawInterval = minLength / 3 ' 3 is the default number of lines\n theInterval = llIntervals.Get( llIntervals.Count - 1 )\n for each val in llIntervals\n if (rawInterval >= val) then\n theInterval = val\n break\n end\n end\n deg=theInterval.Abs.Truncate\n t= ( theInterval.Abs - deg ) * 60\n minute=t.Truncate\n sec= (t-minute) * 60 \n sec= sec.Truncate\n degList = {\"Degrees\",\"Minutes\",\"Seconds\"}\n degDef = { deg.AsString, minute.AsString, sec.AsString }\n d
0,50000,20000,10000,5000,2000,1000,500,200,100,50,20,10,5,2,1 }\n rawInterval = minLength / 4 ' 4 is the default number of lines\n theInterval = xyIntervals.Get( xyIntervals.Count - 1 )\n for each val in xyIntervals\n if (rawInterval >= val) then\n theInterval = val\n break\n end\n end\n metresInt = MsgBox.Input( \"Specify XY Grid Interval (in meters)\", \"\",\n theInterval.AsString )\n if ( metresInt = nil ) then\n return nil\n end\n \n gratdx = metresInt.AsNumber\n gratdy = gratdx\n\n
'get the metres limits of the graticule, based on user input\n ' the limits are the nearest multiple of the graticule spacing\n ' inside of the user rectangle\n gratxs=(xMin/gratdx).Floor * gratdx - gratdx\n gratys=(yMin/gratdy).Floor * gratdy - gratdy \n gratxe=(xMax/gratdx).Ceiling * gratdx + gratdx\n gratye=(yMax/gratdy).Ceiling * gratdy + gratdy\nend\n\n' Add the graticule(s) and labels as graphic objects\n\n' Make some symbols that don't yet exist\ngeolfont=Font.MakeStandard(#FONT_TIME)\ngeolSymbol=TextSy
etBlack)\nthickblackLine.SetSize(2)\ntheView.getDisplay.HookUpSymbol(thickBlackLine)\n\n\ngratLine=Symbol.Make(#SYMBOL_PEN)\ngratLine.SetColor(Color.GetBlack)\ngratLine.SetSize(0.01)\ntheView.getDisplay.HookUpSymbol(gratLine)\n\n\n' Draw the border ...\ndRect = Rect.Make( dOrigin, dSize )\ntheBorder = GraphicShape.Make( dRect)\ntheGraphics.Add( theBorder )\ntheBorder.SetSymbol(thickblackline)\n\n'Draw the lat/long graticule, with labels all around\n' Collect graticule lines clipped to the window\nif ( doLatLongs ) then\n\n if
( latInterval < 2 ) then\n latStart = (minlat - latInterval).Floor\n latEnd = (maxlat + latInterval).Ceiling\n else ' If latInterval is \"big\" generate lats from the world\n latStart = -90\n latEnd = 90\n end\n if ( lonInterval < 2 ) then\n lonStart = (minlon - lonInterval).Floor\n lonEnd = (maxlon + lonInterval).Ceiling\n else ' If lonInterval is \"big\" generate lons from the world\n lonStart = -180\n lonEnd = 180\n end\n \n latList = {}\n for each lat in latStart .. latEnd by latInterv
al\n aLine = Line.Make( lonStart@lat, lonEnd@lat )\n prjLine = aLine.ReturnProjected( thisPrj ).ReturnClipped( xyRect )\n if ( prjLine <> nil ) then\n latList = latList.Add( {lat, prjLine} )\n end\n end\n \n lonList = {}\n for each lon in lonStart .. lonEnd by lonInterval\n aLine = Line.Make( lon@latStart, lon@latEnd )\n prjLine = aLine.ReturnProjected( thisPrj ).ReturnClipped( xyRect )\n if ( prjLine <> nil ) then\n lonList = lonList.Add( {lon, prjLine} )\n end\n end\n \n for each a
List in latList\n lat = aList.Get(0)\n prjLine = aList.Get(1)\n if ( doGraticule ) then\n gPolyLine = {}\n for each ptList in prjLine.AsList\n gPtList = {}\n for each aPt in ptList\n thePt = dOrigin + ( ((aPt - xyOrigin) / xySize) * dSize)\n gPtList = gPtList.Add( thePt )\n end\n gPolyLine = gPolyLine.Add( gPtList )\n end\n theGratLine = GraphicShape.Make( PolyLine.Make(gPolyLine) )\n thegratLine.setobjecttag(\"theGratLine\")\n theGraphics.
Addbatch( theGratLine )\n theGratLine.SetSymbol( gratLine )\n end\n for each ptList in prjLine.AsList\n for each endPt in { ptList.Get(0), ptList.Get(ptList.Count-1) }\n ' Make a latitude label\n deg=lat.Abs.Truncate\n labelString = deg.AsString+\"░\"\n t = ( lat.Abs - deg ) * 60\n minute=t.Truncate\n if ( (t - minute) >= 0.9998 ) then\n minute = minute + 1\n end\n if ( minute > 0 ) then\n labelString = labelString+minute.AsString+\"'
tph.setHAlign(#TEXTPOSITIONER_HALIGN_CENTER)\n tph.setVAlign(#TEXTPOSITIONER_VALIGN_ABOVE)\n end\n tph.Calculate(gPoint2.GetShape,mygText.GetExtent,0,nil)\n mygText.SetOrigin(tph.GetOrigin)\n mygText.Invalidate \n end\n end\n end\n \n for each aList in lonList\n lon = aList.Get(0)\n prjLine = aList.Get(1)\n if ( doGraticule ) then\n gPolyLine = {}\n for each ptList in prjLine.AsList\n gPtList = {}\n for each aPt in ptList\n thePt =
dOrigin + ( ((aPt - xyOrigin) / xySize) * dSize)\n gPtList = gPtList.Add( thePt )\n end\n gPolyLine = gPolyLine.Add( gPtList )\n end\n theGratLine = GraphicShape.Make( PolyLine.Make(gPolyLine) )\n thegratline.setobjecttag(\"ThegratLine\")\n theGraphics.Addbatch( theGratLine )\n theGratLine.SetSymbol( gratLine )\n end\n\n for each ptList in prjLine.AsList\n for each endPt in { ptList.Get(0), ptList.Get(ptList.Count-1) }\n ' Make a longitude label\n deg
heGraphics.Addbatch( theGratLine )\n theGratLine.SetSymbol( gratLine )\n gPoint2 = GraphicShape.Make(aPt + (0@0.1))\n tph=TextPositioner.Make(gPoint2.GetClass)\n mygText.SetAngle(0)\n tph.setHAlign(#TEXTPOSITIONER_HALIGN_CENTER)\n tph.setVAlign(#TEXTPOSITIONER_VALIGN_ABOVE)\n end\n tph.Calculate(gPoint2.GetShape,mygText.GetExtent,0,nil)\n mygText.SetOrigin(tph.GetOrigin)\n mygText.Invalidate \n end\n end ' of foreach in prjLine\n
end ' of foreach in lonList\nend ' of if (doLatLongs)\n\nif ( doXYGrid ) then\n'Draw metres graticule as lines, with coordinates all around \n' vertical lines\n xoffset = 0.0625@0\n yoffset = 0@0.0625\n for each x in gratxs .. gratxe by gratdx\n if ( (x < xMin) or (x > xMax) ) then\n continue\n end\n for each y in gratys .. gratye by gratdy\n if ( (y < yMin) or (y > yMax) ) then\n continue\n end\n aPt = dOrigin + ( ((x@y - xyOrigin) / xySize) * dSize)\n aPolyLine = PolyLine.
Make( { \n { aPt-xoffset, aPt+xoffset, aPt, aPt-yoffset, aPt+yoffset } } )\n ggLine = aPolyLine.ReturnClipped( dRect )\n gLine = GraphicShape.Make( ggLine )\n gline.setobjecttag(\"gline\")\n theGraphics.Addbatch( gLine )\n gLine.SetSymbol(blackline)\n end\n end\n for each x in gratxs .. gratxe by gratdx\n if ( (x < xMin) or (x > xMax) ) then\n continue\n end\n' put easting label at ymax\n aPt = dOrigin + ( ((Point.Make(x,yMax) - xyOrigin) / xySize) * dSize)\n gLine = Gr
theGraphics.Addbatch(mygText)\n mygText.SetSymbol(xySymbol)\n gPoint2 = GraphicShape.Make(aPt + (0@0.02))\n tph=TextPositioner.Make(gPoint2.GetClass)\n tph.setHAlign(#TEXTPOSITIONER_HALIGN_CENTER)\n tph.setVAlign(#TEXTPOSITIONER_VALIGN_ON) \n tph.Calculate(gPoint2.GetShape,mygText.GetExtent,0,nil)\n mygText.SetOrigin(tph.GetOrigin)\n mygText.Invalidate \n end ' of for each x\n \n for each y in gratys .. gratye by gratdy\n' horizontal lines\n if ( (y < yMin) or (y > yMax) ) then\n
ape,mygText.GetExtent,0,nil)\n mygText.SetOrigin(tph.GetOrigin)\n mygText.Invalidate \n end ' of foreach y \nend ' of if (doXYGrid)\n\nthegraphics.endbatch\n\nfor each agraphic in thegraphics\n agraphic.setselected(false)\nend\nif (nil<>thegraphics.findbyobjecttag(\"mygText\")) then\n \n for each agraphic in thegraphics.findallbyobjecttag(\"mygtext\")\n agraphic.setselected(true)\n agraphic.setobjecttag(nil)\n end\n \n thegraphics.groupselected\n for each agraphic in thegraphics\n agraphic.setselected
(false)\n end\nend\n\nif (nil<>thegraphics.findbyobjecttag(\"theGratLine\")) then\n\n for each agraphic in thegraphics.findallbyobjecttag(\"theGratline\")\n agraphic.setselected(true)\n agraphic.setobjecttag(nil)\n end\n \n thegraphics.groupselected\n for each agraphic in thegraphics\n agraphic.setselected(false)\n end\nend\n\nif (nil<>thegraphics.findbyobjecttag(\"gline\")) then\n\n for each agraphic in thegraphics.findallbyobjecttag(\"gline\")\n agraphic.setselected(true)\n agraphic.setob
jecttag(nil)\n end\n \n thegraphics.groupselected\n for each agraphic in thegraphics\n agraphic.setselected(false)\n end\n\nend\n\ntheGraphics.Invalidate\n\n\n\n"
FontSize: 1
)
(DocWin.47449
Owner: 47448
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47450
)
(DocAct.47451
Doc: 47448
)
(SEd.47452
Name: "View.HideGraphics"
CreationDate: "Thursday, March 25, 1999 04:35:01"
GUIName: "Script"
Win: 47453
CSMgr: 47454
DocExts: 47455
Source: "theView = av.GetActiveDoc\nfor each g in theView.GetGraphics\n if (g.isVisible) then\n g.setVisible(FALSE)\n else\n g.setVisible(TRUE)\n end\nend\n "
FontSize: 1
)
(DocWin.47453
Owner: 47452
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47454
)
(DocAct.47455
Doc: 47452
)
(SEd.47456
Name: "View.Mapbuilder"
CreationDate: "Wednesday, November 18, 1998 02:47:59"
GUIName: "Script"
Win: 47457
CSMgr: 47458
DocExts: 47459
Source: "' View.MapBuilder\n' Function: This script drops a view into a map template and assigns it to a \n' simplified GUI.\n'\n' Developed By: Gregory L. Gunther, ggunther@usgs.gov\n'\n' Variables\nSizeList = { \"8.5 x 11\", \"12.75 x 16.5\", \"17 x 22\"}\n\n' Get template\ntheTempPathString = _theHomePath+\"\\reg4avdp\\misc\\\"\ntheTempPath = theTempPathString.AsFileName\nav.GetProject.setWorkDir(theTempPath)\nTemp = TemplateMgr.GetTemplates\ntheView = av.GetActiveDoc\n\n' if iterations for each view, active view determines template used\n
if ((not (theView.Is(View))) or (theView = nil)) then\n msgbox.error( \"Error In Reading Active View\", \"Mapbuilder Error\")\nend\n\nif (Temp.count < 6) then\n msgbox.error( \"Error In Reading Layout Templates\", \"Mapbuilder Error\")\n exit\nend\n\nt = Temp.Get(5)\ntheView = av.GetActiveDoc\n \n' Build list of objects used to fill frames\ndocs = av.GetProject.GetDocs\ndocs.Shuffle(theView, 0)\nobjs = List.Make\nobjs.Add(theView.GetName)\nobjs.Merge(docs)\n\n' Create New layout and assign it to a new GUI\nl = Layout.Make\nl.SetGUI
( \"Simple Layout\" )\nInput = msgbox.ChoiceAsString(SizeList, \"Choose a Page Size\", \"Mapbuilder\")\nif (Input = nil) then\n exit\nend\ntheDisplay = l.GetDisplay\n\n' Determines What Size the map will be\nif (Input = \"8.5 x 11\") then\n PageSize = Point.Make(8.5, 11)\n theDisplay.SetPageSize(PageSize)\nend\nif (Input = \"12.75 x 16.5\") then\n PageSize = Point.Make(12.75, 16.6)\n theDisplay.SetPageSize(PageSize)\nend\nif (Input = \"17 x 22\") then\n PageSize = Point.Make(17, 22)\n theDisplay.SetPageSize(PageSize)\nend\n\n'Name
the new Layout \nNewName = msgbox.input(\"Name Your New Layout\", \"Mapbuilder\", \"New Layout\")\nif (NewName = nil) then\n exit\nend\nName = l.GetName\nl.SetName(NewName)\n\n \n' Format the layout with the selected template and fill with objs\nif (l <> nil) then\n l.UseTemplate(t)\n l.GetGraphics.FillFrames(objs)\n l.GetWin.Open\n l.GetWin.Maximize\n 'av.GetProject.SetModified(true)\n theLayout = av.GetActiveDoc\n theLayout.GetDisplay.ZoomToPage\nend\n\n'av.GetProject.setWorkDir(\"$Home\".AsFileName)\n\n'msgbox.info (av.GetP
Source: "theView = av.GetActiveDoc\ntheThemeList = theView.GetActiveThemes\nif (theThemeList.Count > 1) then\n MsgBox.Error(\"More Than One Theme Active. Can Not View Metadata Document\", \"Metadata Viewer\")\n exit\nend\ntheTheme = theThemeList.Get(0)\ntheThemeSrcName = theTheme.getSrcName\ntheThemeFileName = theThemeSrcName.getFileName\ntheThemeFileStringPre = theThemeFileName.AsString\ntheThemeFileString = theThemeFileStringPre.substitute(\"shapes\", \"metadata\")\nif (theThemeFileName.GetExtension = \"shp\") then\n theMetThemeStr
ing = theThemeFileString.substitute(\".shp\", \".met\")\nelse\n theMetThemeString = theThemeFileString.substitute(\".tif\", \".met\")\nend\ntheMetTheme = theMetThemeString.AsFileName\ntheTextWin = TextWin.Make(theMetTheme, \"Metadata For\"++theTheme.AsString)\nif (nil = theTextWin) then\n MsgBox.error(\"Metadata text file for that theme does not exist\", \"Metadata Viewer\")\n exit\nend\ntheTextWin.Open\n\n\n\n"
FontSize: 1
)
(DocWin.47465
Owner: 47464
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47466
)
(DocAct.47467
Doc: 47464
)
(SEd.47468
Name: "View.Multiquery"
CreationDate: "Tuesday, June 30, 1998 09:44:15"
GUIName: "Script"
Win: 47469
CSMgr: 47470
DocExts: 47471
Source: "\n'' View.NewQuery\n\n' Function: Simplified Query Tool. Uses dropdown menus and guides users through querying\n' process. Values for each attribute where predefined except for quads because of efficiency\n' reasons. The Quad values List is populated by a for each loop which finds all values and\n' populates list\n\n'This script calls the following scripts: QueryBuilder which calls ResAttChooser1 and Chooselist.\n\n\n\n' Developed By: Gregory L. Gunther (ggunther@usgs.gov) \n\n' Initialize Variables\ntheView = av.GetAc
tiveDoc 'Get the active View \ntheActiveThemes = theView.GetActiveThemes\nfor each at in theActiveThemes\n resPattern = \"*Spatial Query Layer\".AsPattern\n wellPattern = \"*Data\".AsPattern\n if (at.AsString = resPattern) then\n theChoice = \"Spatial Query Layer\"\n else if (at.AsString = wellPattern) then\n theChoice = \"Data\"\n else \n msgbox.error(\"You Must Activate The 'Well Data' Or 'Spatial Query Layer' Theme\", \"Query Builder Error\")\n exit\n end\n end\nend\n' Display MessageBox for Strat/Coal Resourc
e Option\n' theChoice = msgbox.ChoiceAsString(prbList, \"Choose The Theme You Would Like To Query\", \"Query Builder\")\n \n'\n' If iteration for coal resources\n'\n\n' Variable Assignment for resources\nif (theChoice = \"Spatial Query Layer\") then\n resPattern = \"*Spatial Query Layer\".AsPattern\n for each t in theView.GetThemes\n if (t.AsString = resPattern) then\n theTheme = t\n theVTab = theTheme.GetFtab\n theBitmap = theVTab.GetSelection\n \n end\n end \nelse if (theChoice = \"Data\") t
hen\n dataPattern = \"*Data\".AsPattern\n for each t in theView.GetThemes\n if (t.AsString = dataPattern) then\n theTheme = t\n theVTab = theTheme.GetFtab\n theBitmap = theVtab.GetSelection\n end\n end \nelse\n exit\nend\nend\n\ntheTheme.ClearSelection\noperatorList = {\"and\", \"or\"}\n\n' Builds segment of query \ntheQuery = av.run(\"View.MultiQueryBuilder\", {theVTab, theChoice, theView, theBitmap}) 'This code Builds a segment of the query\n\n\n' The following loop appends new expressions to the q
uery \nwhile(MsgBox.YesNo(\"Would you like your query to include another constraint?\", \"Coal Query Builder\" ,TRUE)) \n theOperator = MsgBox.ChoiceAsString(operatorList,\"Select an operator\", \"Coal Query Builder\") \n if (theOperator = nil) then\n exit\n end\n theQueryAdd = av.run(\"View.MultiQueryBuilder\", {theVTab, theChoice, theView, theBitmap}) 'This code Builds a segment of the query\n theQuery = theQuery + \" \" + theOperator + \" \" + theQueryAdd \nend\n \n' Continues of expression is correct\nDoNext = M
sgBox.YesNo(\"Would You Like To Use This Expression?\" + nl + nl + theQuery, \"Coal Query Builder\", TRUE)\nif (not(DoNext)) then\n exit\nend \n \n' Querys Table \nif (theVtab.GetSelection.Count > 0) then\n theVTab.Query(theQuery, theBitmap, #VTAB_SELTYPE_AND)\n theVTab.SetSelection(theBitmap)\n theVTab.UpdateSelection\nelse\n theVTab.Query(theQuery, theBitmap, #VTAB_SELTYPE_NEW)\n theVTab.SetSelection(theBitmap)\n theVTab.UpdateSelection\nend\n \nif (theTheme.IsVisible) then\nelse\n theTheme.SetVisible(TRUE)\nend"
FontSize: 1
)
(DocWin.47469
Owner: 47468
X: -4
Y: -4
W: 1034
H: 643
)
(CSMgr.47470
)
(DocAct.47471
Doc: 47468
)
(SEd.47472
Name: "View.MultiQueryBuilder"
CreationDate: "Tuesday, June 30, 1998 10:08:14"
GUIName: "Script"
Win: 47473
CSMgr: 47474
DocExts: 47475
Source: "theVTab = SELF.Get(0)\ntheChoice = SELF.Get(1)\ntheView = SELF.Get(2)\ntheBitmap = SELF.Get(3)\nassignStatDis = { \"Equal To\", \"Not Equal To\", \"Greater Than\", \"Greater Than or Equal To\",\n \"Less Than\", \"Less Than or Equal To\"}\n\n\nif (theChoice = \"Spatial Query Layer\") then\n fieldName = av.run(\"View.MultiQueryResAttChooser1\", theVtab) 'Choose the field of the query\n assignStatDis.Remove(2)\n assignStatDis.Remove(2)\n assignStatDis.Remove(2)\n assignStatDis.Remove(2)\n\n if
(fieldName = nil) then\n exit\n end\nelse \n if (theChoice = \"Data\") then\n fieldName = av.run(\"View.MultiQueryResAttChooser1Strat\", theVtab)\n if (fieldName = nil) then\n exit\n end\n if ((fieldName = \"Well Type\") or (fieldName = \"Completeness\") or (fieldName = \"7.5' Quad Name\")\n or (fieldName = \"Source\")) then \n assignStatDis.Remove(2)\n assignStatDis.Remove(2)\n assignStatDis.Remove(2)\n assignStatDis.Remove(2)\n end \n else \n exit\n end\nend\n \nassignStat =
MsgBox.ChoiceAsString (assignStatDis, \"Choose Assignment Statement for \" + fieldName ,\n \"Coal Query Builder\") 'Choose the operator for the Query\n \nif (assignStat = nil) then\n exit\nelse if (assignStat = \"Equal To\") then\n assignStatSym = \"=\"\nelse if (assignStat = \"Not Equal To\") then\n assignStatSym = \"<>\"\nelse if (assignStat = \"Greater Than\") then\n assignStatSym = \">\"\nelse if (assignStat = \"Greater Than or Equal To\") th
en\n assignStatSym = \">=\"\nelse if (assignStat = \"Less Than\") then\n assignStatSym = \"<\"\nelse if (assignStat = \"Less Than or Equal To\") then\n assignStatSym = \"<=\"\nend\nend\nend\nend \nend \nend\nend\n\nif (theChoice = \"Spatial Query Layer\") then\n if (theView.AsString = \"Powder River Basin, Wyodak-Anderson Coal Zone\") then\n fieldPreValue = av.run(\"View.MultiQueryChooseListWA\", {fieldName, theVtab})\n else\n fieldPreValue = av.run(\"View.MultiQueryChooseList\", {fieldName, theVtab})\n end\nelse if (theChoice
Source: "theVTab = Self\n \n' Create List of Resource Table Fields and Assigns it\nfieldAliasList = List.Make\nfor each f in theVTab.GetFields\n Alias = f.GetAlias.AsString\n fieldAliasList.insert(Alias)\nend\n \ntheCount = fieldAliasList.Count\n \nfieldAliasList.Remove(theCount - 2) 'deletes Area field \nfieldAliasList.Remove(theCount - 2) 'deletes Shape field \nfieldName = MsgBox.ChoiceAsString (fieldAliasList, \"Choose Attribute To Query\", \"Coal Query Builder\")\nif (fieldName = nil) then\n exit\nend\nreturn field
Name \n\n\n"
FontSize: 1
)
(DocWin.47493
Owner: 47492
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47494
)
(DocAct.47495
Doc: 47492
)
(SEd.47496
Name: "View.MultiQueryUpdate"
CreationDate: "Thursday, August 27, 1998 11:15:15"
GUIName: "Script"
Win: 47497
CSMgr: 47498
DocExts: 47499
Source: "theView = av.GetActiveDoc\ntheActiveThemes = theView.GetActiveThemes\non = FALSE\n\nfor each at in theActiveThemes\n resPattern = \"*Spatial Query Layer\".AsPattern\n wellPattern = \"*Data\".AsPattern\n if ((at.AsString = resPattern) or (at.AsString = wellPattern)) then\n on = TRUE\n break \n end\nend\n\nSELF.SetEnabled(on)"
FontSize: 1
)
(DocWin.47497
Owner: 47496
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47498
)
(DocAct.47499
Doc: 47496
)
(SEd.47500
Name: "View.NewIdentify"
CreationDate: "Monday, August 24, 1998 03:25:59"
GUIName: "Script"
Win: 47501
CSMgr: 47502
DocExts: 47503
Source: "theView = av.GetActiveDoc\nfound = FALSE\np = theView.GetDisplay.ReturnUserPoint\nfor each t in theView.GetActiveThemes\n if (t.CanFindByPoint) then\n keys = t.FindByPoint(p)\n for each key in keys\n found = TRUE\n idlabel = t.GetName++\"-\"\n f = NIL\n if (t.CanLabel) then\n f = t.GetLabelField\n end\n if (f = NIL) then\n if (key.Is(Number)) then\n idlabel = idlabel++key.SetFormat(\"d\").AsString\n else\n idlabel = idlabel++\" X :\"++key.GetX.AsString++\"
Y :\"++key.GetY.AsString\n end\n else\n s = t.ReturnValueString(f.GetName, key)\n idlabel = idlabel++s\n end\n t.Identify(key, idlabel)\n end\n end\nend\nif (not found) then\n MsgBox.Error(\"This theme is not active.\",\n \"Identify Error\")\nend\ntheView = av.GetActiveDoc\n"
FontSize: 1
)
(DocWin.47501
Owner: 47500
X: -4
Y: -4
W: 1034
H: 644
)
(CSMgr.47502
)
(DocAct.47503
Doc: 47500
)
(SEd.47504
Name: "View.NewViewLink"
CreationDate: "Wednesday, November 25, 1998 12:14:30"
GUIName: "Script"
Win: 47505
CSMgr: 47506
DocExts: 47507
Source: "' View.LinkForward\n\n' Function: Links From Current View to Next View. \n\n' Developed By: Gregory L. Gunther\n\n' Variables\ncurrentDoc = av.GetActiveDoc\ntheNewViewName = SELF.GetLabel\ncurrentDoc.GetWin.Close\ntheNewView = av.GetProject.FindDoc(theNewViewName)\ntheNewView.GetWin.Open\ntheNewView.GetWin.Maximize\n"
FontSize: 1
)
(DocWin.47505
Owner: 47504
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47506
)
(DocAct.47507
Doc: 47504
)
(SEd.47508
Name: "View.NewViewLinkUpdate"
CreationDate: "Wednesday, November 25, 1998 12:53:47"
CreationDate: "Monday, December 14, 1998 01:46:58"
GUIName: "Script"
Win: 47513
CSMgr: 47514
DocExts: 47515
Source: "theView = av.GetActiveDoc\nfound = false\np = theView.GetDisplay.ReturnUserPoint\nfor each t in theView.GetActiveThemes\n if ((t.HasAttributes) and (t.GetHotField <> nil)) then\n recs = t.FindByPoint(p)\n for each rec in recs\n theField = t.GetHotField\n found = true\n theVal = t.ReturnValueString(theField.GetName, rec)\n av.Run(t.GetHotScriptName,theVal)\n end\n end\nend\nif (not found) then\n msgbox.error(\"This Feature Is Not Hot Linked!\", \"Hot Link Error\")\nend\n\n\n"
FontSize: 1
)
(DocWin.47513
Owner: 47512
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47514
)
(DocAct.47515
Doc: 47512
)
(SEd.47516
Name: "View.Resources"
CreationDate: "Monday, December 21, 1998 01:22:02"
GUIName: "Script"
Win: 47517
CSMgr: 47518
DocExts: 47519
Source: "theViewName = av.GetActiveDoc.AsString\nif (theViewName = \"Powder River Basin, Wyodak-Anderson Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/wares.pdf\")\nelse if (theViewName = \"Sheridan Coalfield\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/shrres.pdf\")\nelse if (theViewName = \"Gillette Coalfield\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/gilres.pdf\")\nelse if (theViewName = \"Decker Coal
field\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/dkres.pdf\")\nelse if ((theViewName = \"Jim Bridger-Deadman Coal Zone\") or \n (theViewName = \"Black Butte-Deadman Coal Zone\") or (theViewName = \"Point of Rocks, Black Butte Coalfield\")) then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/grbres.pdf\")\nelse if (theViewName = \"Ferris Coalfield, Ferris 23 Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/
fer23res.pdf\")\nelse if (theViewName = \"Ferris Coalfield, Ferris 25 Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/fer25res.pdf\")\nelse if (theViewName = \"Ferris Coalfield, Ferris 31 Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/fer31res.pdf\")\nelse if (theViewName = \"Ferris Coalfield, Ferris 50 Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/fer50res.pdf\")\nelse if (theViewN
ame = \"Ferris Coalfield, Ferris 65 Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/fer65res.pdf\")\nelse if (theViewName = \"Hanna Coalfield, Hanna 77 Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/ha77res.pdf\")\nelse if (theViewName = \"Hanna Coalfield, Hanna 78 Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/ha78res.pdf\")\nelse if (theViewName = \"Hanna Coalfield, Hanna 79 Coal
Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/ha79res.pdf\")\nelse if (theViewName = \"Hanna Coalfield, Hanna 81 Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/ha81res.pdf\")\nelse if (theViewName = \"Bowman-Dickinson Coalfield, Harmon Coal Zone\") then\n System.Execute(\"reg4avdp/acrobat/AcroRd32.exe \"+\"reg4avdp/resourcetables/harres.pdf\")\nelse if (theViewName = \"Bowman-Dickinson Coalfield, Hansen Coal Zone\") then\n System.Ex
Source: "theView = av.GetActiveDoc\ntheThemeList = theView.GetActiveThemes\nif ((theThemeList.Count > 1) or (theThemeList.Count < 1)) then\n MsgBox.Error(\"One Theme Must Be Active. Can Not View Theme Information\", \"Metadata Viewer\")\n exit\nend\ntheTheme = theThemeList.Get(0)\ntheThemeFile = theTheme.getSrcName.getFileName\ntheThemePath = theThemeFile.AsString\ntheThemePreMet = theThemePath.substitute(\"shapes\", \"metadata\")\nif (theThemeFile.GetExtension = \"shp\") then\n theThemeMet = theThemePreMet.substitute(\".shp\", \".met\")
\nelse\n theThemeMet = theThemePreMet.substitute(\".tif\", \".met\")\nend\n\nmsgbox.info(\"The source data file for this theme is located at:\" + NL \n + \" \" + theThemePath + NL\n + NL\n + \"The metadata text document for this theme is located at:\" + NL\n + \" \" + theThemeMet, \"Theme Information\")"
FontSize: 1
)
(DocWin.47521
Owner: 47520
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47522
)
(DocAct.47523
Doc: 47520
)
(SEd.47524
Name: "View.ToggleEditingUpdate"
CreationDate: "Monday, October 25, 1999 10:41:14 PM"
CreationDate: "Tuesday, November 24, 1998 09:51:01"
GUIName: "Script"
Win: 47533
CSMgr: 47534
DocExts: 47535
Source: "theVal = SELF\ntheVal2 = _theHomePath+\"\\\"+theVal\nif (not (theVal.IsNull)) then\n if (File.Exists(theVal2.AsFileName)) then\n System.Execute(_theHomePath+\"\\reg4avdp\\acrobat\\AcroRd32.exe \"+_theHomePath+\"\\\"+theVal)\n else\n MsgBox.Error(\"File \"+theVal+\" Not Found.\", \"Hot Link Error\")\n end\nend\n\n\n\n"
FontSize: 1
)
(DocWin.47533
Owner: 47532
X: -4
Y: -4
W: 1034
H: 671
)
(CSMgr.47534
)
(DocAct.47535
Doc: 47532
)
(SEd.47536
Name: "View.XsectionHotlinkclick"
CreationDate: "Wednesday, July 29, 1998 09:43:42"
GUIName: "Script"
Win: 47537
CSMgr: 47538
DocExts: 47539
Source: "theView = av.GetActiveDoc\ntheDeckerView = av.GetProject.FindDoc(\"Decker Coalfield\")\nxSectionPat = \"*Cross Sections\".AsPattern\nfor each t1 in theView.GetThemes\n t1.setActive(false)\nend\nfor each t in theView.GetThemes\n if (xSectionPat = t.AsString) then\n t.setActive(True)\n t.setVisible(True)\n end\nend \n"
FontSize: 1
)
(DocWin.47537
Owner: 47536
X: -4
Y: -4
W: 1290
H: 899
)
(CSMgr.47538
)
(DocAct.47539
Doc: 47536
)
(SEd.47540
Name: "View.XsectionHotLinkUpdate"
CreationDate: "Tuesday, August 25, 1998 05:07:15"
GUIName: "Script"
Win: 47541
CSMgr: 47542
DocExts: 47543
Source: "SELF.SetEnabled(FALSE)\ntheView = av.GetActiveDoc\nxSectionPat = \"*Cross Sections\".AsPattern\nfor each t in theView.GetThemes\n if (t.AsString = xSectionPat) then\n SELF.SetEnabled(TRUE)\n end\nend"
FontSize: 1
)
(DocWin.47541
Owner: 47540
X: -4
Y: -4
W: 810
H: 476
)
(CSMgr.47542
)
(DocAct.47543
Doc: 47540
)
(View.47544
Name: "Williston Basin"
CreationDate: "Thursday, September 03, 1998 09:32:37"
